home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / Extract.cpt / Extractor 1.0 / card_3672.txt < prev    next >
Text File  |  1988-11-07  |  9KB  |  348 lines
  1. -- card: 3672 from stack: in.0
  2. -- bmap block id: 4083
  3. -- flags: 0000
  4. -- background id: 2755
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: E005
  11. -- rect: left=140 top=57 right=74 bottom=251
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Card Buttons
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: E005
  25. -- rect: left=140 top=78 right=95 bottom=256
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Bkgnd Buttons
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: E005
  39. -- rect: left=140 top=99 right=116 bottom=256
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Card Fields
  48.  
  49.  
  50. -- part 4 (button)
  51. -- low flags: 00
  52. -- high flags: E005
  53. -- rect: left=140 top=120 right=137 bottom=251
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Bkgnd Fields
  62.  
  63.  
  64. -- part 5 (button)
  65. -- low flags: 00
  66. -- high flags: E005
  67. -- rect: left=318 top=57 right=74 bottom=429
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Cards
  76.  
  77.  
  78. -- part 6 (button)
  79. -- low flags: 00
  80. -- high flags: E005
  81. -- rect: left=318 top=78 right=95 bottom=429
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Backgrounds
  90.  
  91.  
  92. -- part 7 (button)
  93. -- low flags: 00
  94. -- high flags: E005
  95. -- rect: left=318 top=99 right=116 bottom=429
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Stack
  104.  
  105.  
  106. -- part 8 (button)
  107. -- low flags: 00
  108. -- high flags: 2000
  109. -- rect: left=196 top=182 right=242 bottom=343
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: extract
  118. ----- HyperTalk script -----
  119. function LastPathComponent name
  120. -- scan backwards for the last colon.
  121. repeat with i = the length of name down to 1
  122.   if character i of name is ":" then exit repeat
  123. end repeat
  124.  
  125. if i is 1 then
  126.   -- Name was of the form ":thing" or "thing". Check for leading
  127.   -- colon, and adjust if necessary. Done for generality.
  128.   if first character of name is ":" then
  129.     put 2 into i
  130.   end if
  131. else
  132.   add 1 to i -- skip the colon
  133. end if
  134.  
  135. -- Name was of the form "Thing:otherthing". Return "otherThing".
  136. put empty into lastpath
  137. repeat with j = i to the length of name
  138.   put character j of name after lastpath
  139. end repeat
  140. return lastpath
  141. end LastPathComponent
  142.  
  143.  
  144. on mouseUp
  145.   answer"Do extraction?" with "No" or "Yes"
  146.   if it is "No" then
  147.     exit mouseup
  148.   end if
  149.   put "** SELECT STACK TO EXTRACT SCRIPTS FROM **"
  150.   put filename ("STAK") into stackname
  151.   if stackname is empty then
  152.     exit mouseup
  153.   end if
  154.   put lastpathcomponent (stackname) into savef
  155.   put savef&" scripts" into savefile
  156.   put NewFileName ("Save scripts to...",savefile) into savefile
  157.   if savefile is empty then
  158.     exit mouseup
  159.   end if
  160.   open file savefile
  161.   ---get vals of hilites
  162.   if hilite of card button 1 is true then
  163.     put true into cbh
  164.   else
  165.     put false into cbh
  166.   end if
  167.   if hilite of card button 2 is true then
  168.     put true into bbh
  169.   else
  170.     put false into bbh
  171.   end if
  172.   if hilite of card button 3 is true then
  173.     put true into cfh
  174.   else
  175.     put false into cfh
  176.   end if
  177.   if hilite of card button 4 is true then
  178.     put true into bfh
  179.   else
  180.     put false into bfh
  181.   end if
  182.   if hilite of card button 5 is true then
  183.     put true into ch
  184.   else
  185.     put false into ch
  186.   end if
  187.   if hilite of card button 6 is true then
  188.     put true into bh
  189.   else
  190.     put false into bh
  191.   end if
  192.   if hilite of card button 7 is true then
  193.     put true into sh
  194.   else
  195.     put false into sh
  196.   end if
  197.  
  198.   ---start extracting!
  199.   push card
  200.   set cursor to 4
  201.   visual effect dissolve to gray
  202.   visual effect dissolve to card
  203.   go to card id 4232
  204.   set lockscreen to true
  205.   go to stack stackname
  206.   write "SCRIPTS FROM STACK "&STACKNAME&RETURN to file savefile
  207.   write"_________________________________________________"&RETURN to file savefile
  208.   write return&RETURN to file savefile
  209.  
  210.   if sh is true then ---get stack script
  211.     put "Doing stack..."
  212.     put script of this stack into stackscript
  213.     write "Stack Script:"&RETURN&RETURN to file savefile
  214.     write stackscript&RETURN to file savefile
  215.     write"_________________________________________________"&RETURN to file savefile
  216.   end if
  217.  
  218.   if bh is true then
  219.     put "Doing backgrounds..."
  220.     repeat with x=1 to the number of backgrounds
  221.       write return to file savefile
  222.       put script of background x into backscript
  223.       put the name of background x into nameback
  224.       write"Script of background #"&x&" - "&nameback&return to file savefile
  225.       write return to file savefile
  226.       write backscript&return to file savefile
  227.       write"_________________________________________________"&RETURN to file savefile
  228.     end repeat
  229.   end if
  230.  
  231.   if ch is true then
  232.     put "Doing cards..."
  233.     repeat with x=1 to the number of cards
  234.       go to card x
  235.       write return to file savefile
  236.       write "Script of card #"&x&" - "&name of card x&return to file savefile
  237.       put the script of card x into cardscript
  238.       write return to file savefile
  239.       write cardscript&RETURN to file savefile
  240.       write"_________________________________________________"&RETURN to file savefile
  241.     end repeat
  242.   end if
  243.  
  244.   if bfh is true then
  245.     put "Doing Background fields..."
  246.     repeat with a=1 to the number of backgrounds
  247.       go to first card of background a
  248.       repeat with x=1 to the number of background fields
  249.         write return to file savefile
  250.         write"Script of bkgnd field #"&x&" - "&name of bkgnd field x&return to file savefile
  251.         write "This bkgnd field is in Background #"&a&" - "&name of background a&return to file savefile
  252.         put script of bkgnd field x into fieldscript
  253.         write return to file savefile
  254.         write fieldscript & RETURN to file savefile
  255.         write"_________________________________________________"&RETURN to file savefile
  256.       end repeat
  257.     end repeat
  258.   end if
  259.  
  260.   if bbh is true then
  261.     put "Doing background buttons..."
  262.     repeat with a=1 to the number of background
  263.       go to first card of background a
  264.       repeat with x=1 to the number of background buttons
  265.         write return to file savefile
  266.         write "Script of bkgnd button #"&x&" - "&name of background button x & return to file savefile
  267.         write "This bkgnd button is in Background #"&a&" - "&name of background a&return to file savefile
  268.         put script of bkgnd button x into butscript
  269.         write butscript&return to file savefile
  270.         write"_________________________________________________"&RETURN to file savefile
  271.       end repeat
  272.     end repeat
  273.   end if
  274.  
  275.   if cfh is true then
  276.     put"Doing all card fields..."
  277.     repeat with a=1 to the number of cards
  278.       go to card a
  279.       repeat with x=1 to the number of card fields
  280.         write return to file savefile
  281.         write "Script of card field #"&x&" - "&name of card field x & return to file savefile
  282.         write  "Found in card # "&a&", in bkgnd "&name of this background&return to file savefile
  283.         put script of card field x into fieldscript
  284.         write return to file savefile
  285.         write fieldscript&return to file savefile
  286.         write"_________________________________________________"&RETURN to file savefile
  287.       end repeat
  288.     end repeat
  289.   end if
  290.  
  291.   if cbh is true then
  292.     put "Doing all card buttons..."
  293.     repeat with a=1 to the number of cards
  294.       go to card a
  295.       repeat with x=1 to the number of card buttons
  296.         write return to file savefile
  297.         write "Script of card button #"&x&" - "&name of card button x &return to file savefile
  298.         write "Found in card #"&a&" - , in bkgnd "&name of this background &return to file savefile
  299.         put script of card button x into butscript
  300.         write return to file savefile
  301.         write butscript&return to file savefile
  302.         write"_________________________________________________"&RETURN to file savefile
  303.       end repeat
  304.     end repeat
  305.   end if
  306.  
  307.  
  308.  
  309.   ---all done!
  310.  
  311.   set lockscreen to false
  312.   play "done"
  313.  
  314.  
  315.   pop card
  316.   close file savefile
  317.   hide message
  318. end mouseup
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331. -- part 9 (button)
  332. -- low flags: 00
  333. -- high flags: 2000
  334. -- rect: left=248 top=302 right=325 bottom=290
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 1016 / 1016
  337. -- text alignment: 1
  338. -- font id: 0
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: goback
  343. ----- HyperTalk script -----
  344. on mouseUp
  345.   go to previous card of this background
  346. end mouseUp
  347.  
  348.